D_chk_ok_reg_moban.asp 落叶冰点万能企业网站内容管理系统 V9.1 - ASP源码程序

www.gusucode.com > 落叶冰点万能企业网站内容管理系统 V9.1 > 落叶冰点万能企业网站内容管理系统 V9.1\code\admin\adminTemplates_qiye\D_chk_ok_reg_moban.asp

    <%


'**************************************************************
' 新动软网站管理系统
' 官方网站: http://www.aspcpu.com
' 系统作者: 阮丁远(网名：天下程序)
' Copyright 新动软网站管理系统 版权所有
'**************************************************************


%>



<htmL>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" /><LINK href="../css.css" type=text/css rel=stylesheet>
<%

dir_set="../../"


%>


<!--#include file=../../inc/conn.asp-->
<!--#include file=../../inc/Functionb.asp-->

<!--#include file=../../inc/ajaxLIB.asp-->

<!--#include file=../inc/checkadmin2.asp-->

<!--#include file=../../inc/functionFiless.asp-->
<!--#include file=../../inc/ND_class_function.asp-->


<script src="../../inc/admin.js" type="text/javascript"></script>




<%
AJAXshowLoader()

%>
<%


Server.ScriptTimeout=9999999


session.timeout=600




if find_dataw("qitashezhi123","0",6)<>"1" and qx_if_max=0 then
response.redirect "../D_suodinguser.asp"
end if

%>
<%





if install_a_moban(trim(request("mpath")))=1 then

set rs1=server.CreateObject("adodb.recordset")
       
rs1.open "select * from ND_templates_folder_reg_qiye",conn,1,3



rs1.addnew

rs1("templates_folder_path_name")=trim(request("mpath"))
rs1("templates_name")=trim(request("mbnm"))
rs1("beizhu")=trim(request("bzmb"))
rs1("is_sys_template")=false
rs1("is_default_template")=false

rs1.update

%>

<br><br><br><br>
<center><font style="font-size:14px">安装成功!</font>，<a href="D_moban_reg_and_unreg.asp"><font style="font-size:14px">点击本处返回并查看模板列表</font></a><br>
<script language=javascript>
alert("安装成功,请到 模板管理里查看!");





</script>



<%


else
%>
<script language=javascript>
alert("安装失败!");


</script>
<br><br><br><br>
<center>安装失败!<br>

可能的原因如下:<br>
<%=errrstrra%>

</center>

<%



end if






AJAXcloseLoader()
%>
</html>